﻿* Encoding: UTF-8.
COMPUTE C1=Q10_3.
EXECUTE.
RECODE C1 (6=0) (1 thru 3=0) (4 thru 5=1).
EXECUTE.
COMPUTE C2=Q10_1.
EXECUTE.
RECODE C2 (6=0) (1 thru 3=0) (4 thru 5=1).
EXECUTE.
COMPUTE C3=Q10_2.
EXECUTE.
RECODE C3 (6=0) (1 thru 3=0) (4 thru 5=1).
EXECUTE.
COMPUTE C4= Q31_1.
EXECUTE.
RECODE C4 (6=0) (1 thru 3=0) (4 thru 5=1).
EXECUTE.
COMPUTE C5=Q31_2.
EXECUTE.
RECODE C5 (6=0) (1 thru 3=0) (4 thru 5=1).
EXECUTE.
Compute C6=Q36.
Execute.
Recode C6 (2 thru 4=0).
Execute. 
Compute CM0 = (C1 + C2 + C3 + C4 + C5 + C6)/6.
Execute.

